Joystick Magazine 1998 December/cd joystick no99 decembre 1998.iso/Data/WIN95/JEUX/GinRummyProEval.EXE/%MAINDIR%/GinRummy.exe/0/RCDATA/TFRMCHANGEGAME/TFRMCHANGEGAME.txt

Text File | 1998-10-29 | 6.4 KB | 317 lines

object frmChangeGame: TfrmChangeGame
  Left = 144
  Top = 50
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'frmChangeGame'
  ClientHeight = 288
  ClientWidth = 393
  Color = 14596451
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object buttonCancel: TButton
    Left = 281
    Top = 256
    Width = 104
    Height = 27
    Cursor = crHandPoint
    Caption = 'Cancel'
    TabOrder = 1
    OnClick = buttonCancelClick
  end
  object buttonOK: TButton
    Left = 9
    Top = 256
    Width = 266
    Height = 27
    Cursor = crHandPoint
    Caption = 'OK'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = buttonOKClick
  end
  object groupBoxTypeJeu: TGroupBox
    Left = 10
    Top = 76
    Width = 141
    Height = 91
    Caption = 'Type de jeu '
    TabOrder = 4
    object rbGinObligatoire: TRadioButton
      Left = 10
      Top = 19
      Width = 130
      Height = 21
      Caption = 'Gin obligatoire'
      TabOrder = 2
      OnClick = rbGinObligatoireClick
    end
    object rbOklahoma: TRadioButton
      Left = 10
      Top = 41
      Width = 130
      Height = 21
      Caption = 'Oklahoma'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = rbOklahomaClick
    end
    object rbmaxknock10: TRadioButton
      Left = 10
      Top = 65
      Width = 130
      Height = 21
      Caption = 'Knock = 10'
      TabOrder = 0
      OnClick = rbmaxknock10Click
    end
  end
  object groupBoxOklahoma: TGroupBox
    Left = 8
    Top = 174
    Width = 377
    Height = 43
    Caption = 'Si l'#39'Upcard est l'#39'As : '
    TabOrder = 3
    object rbAceGin: TRadioButton
      Left = 50
      Top = 17
      Width = 131
      Height = 21
      Caption = 'Gin obligatoire'
      TabOrder = 1
    end
    object rbAceUn: TRadioButton
      Left = 212
      Top = 17
      Width = 137
      Height = 21
      Caption = 'Knock = 1'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
  end
  object groupBoxNbPoints: TGroupBox
    Left = 160
    Top = 76
    Width = 225
    Height = 91
    Caption = 'Nombre de points � faire '
    TabOrder = 2
    object rbpoints1: TRadioButton
      Left = 10
      Top = 17
      Width = 53
      Height = 21
      Caption = '100'
      TabOrder = 7
      OnClick = rbpoints1Click
    end
    object rbpoints2: TRadioButton
      Left = 10
      Top = 41
      Width = 53
      Height = 21
      Caption = '150'
      Checked = True
      TabOrder = 6
      TabStop = True
      OnClick = rbpoints2Click
    end
    object rbpoints3: TRadioButton
      Left = 10
      Top = 65
      Width = 53
      Height = 21
      Caption = '200'
      TabOrder = 5
      OnClick = rbpoints3Click
    end
    object rbpoints4: TRadioButton
      Left = 86
      Top = 17
      Width = 53
      Height = 21
      Caption = '250'
      TabOrder = 4
      OnClick = rbpoints4Click
    end
    object rbpoints5: TRadioButton
      Left = 86
      Top = 41
      Width = 53
      Height = 21
      Caption = '300'
      TabOrder = 3
      OnClick = rbpoints5Click
    end
    object rbPoints6: TRadioButton
      Left = 86
      Top = 65
      Width = 53
      Height = 21
      Caption = '350'
      TabOrder = 2
      OnClick = rbPoints6Click
    end
    object rbPoints7: TRadioButton
      Left = 168
      Top = 17
      Width = 53
      Height = 21
      Caption = '500'
      TabOrder = 1
      OnClick = rbPoints7Click
    end
    object rbPoints8: TRadioButton
      Left = 168
      Top = 41
      Width = 53
      Height = 21
      Caption = '750'
      TabOrder = 0
      OnClick = rbPoints8Click
    end
    object rbPoints9: TRadioButton
      Left = 168
      Top = 65
      Width = 53
      Height = 21
      Caption = '1000'
      TabOrder = 8
      OnClick = rbPoints9Click
    end
  end
  object panelYourName: TPanel
    Left = 10
    Top = 10
    Width = 163
    Height = 25
    Caption = 'Votre nom :'
    Color = clAqua
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object editYourName: TEdit
    Left = 8
    Top = 42
    Width = 165
    Height = 21
    TabStop = False
    MaxLength = 10
    TabOrder = 6
    OnDblClick = editYourNameDblClick
    OnKeyPress = editYourNameKeyPress
  end
  object groupBoxNiveauJeu: TGroupBox
    Left = 182
    Top = 4
    Width = 203
    Height = 65
    Caption = 'Niveau de jeu'
    TabOrder = 7
    object rbDebutant: TRadioButton
      Left = 8
      Top = 15
      Width = 90
      Height = 21
      Caption = 'D�butant'
      TabOrder = 2
      OnClick = rbDebutantClick
    end
    object rbAdvanced: TRadioButton
      Left = 106
      Top = 15
      Width = 90
      Height = 21
      Caption = 'Avanc�'
      TabOrder = 1
      OnClick = rbAdvancedClick
    end
    object rbAmateur: TRadioButton
      Left = 8
      Top = 39
      Width = 90
      Height = 21
      Caption = 'Amateur'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = rbAmateurClick
    end
    object rbExpert: TRadioButton
      Left = 106
      Top = 39
      Width = 90
      Height = 21
      Caption = 'Expert'
      TabOrder = 3
      OnClick = rbExpertClick
    end
  end
  object panelTitreHighScore: TPanel
    Left = 8
    Top = 224
    Width = 127
    Height = 25
    Caption = 'highscore'
    Color = clAqua
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
  object panelNomHighScore: TPanel
    Left = 140
    Top = 224
    Width = 163
    Height = 25
    Color = clAqua
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
  object panelValeurHighScore: TPanel
    Left = 306
    Top = 224
    Width = 79
    Height = 25
    Color = clAqua
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
end